home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / Stop~Tabs™.cpt / STOP-Tabs™ / card_3433.txt < prev    next >
Text File  |  1988-07-11  |  10KB  |  506 lines

  1. -- card: 3433 from stack: in
  2. -- bmap block id: 2258
  3. -- flags: 4000
  4. -- background id: 2579
  5. -- name: Stop~Tabs™ XCMD
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=106 top=150 right=170 bottom=240
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Columnize Fields
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   StopTabs 2,card field "startcol",card field "colOff", card field "Before",""
  23.   put the result into card field "test"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (field)
  29. -- low flags: 00
  30. -- high flags: 0004
  31. -- rect: left=398 top=132 right=146 bottom=458
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 9
  37. -- style flags: 0
  38. -- line height: 12
  39. -- part name: startcol
  40.  
  41.  
  42. -- part 3 (field)
  43. -- low flags: 00
  44. -- high flags: 0004
  45. -- rect: left=398 top=149 right=163 bottom=457
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 3
  50. -- text size: 9
  51. -- style flags: 0
  52. -- line height: 12
  53. -- part name: coloff
  54.  
  55.  
  56. -- part 4 (field)
  57. -- low flags: 00
  58. -- high flags: 0004
  59. -- rect: left=255 top=184 right=202 bottom=478
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 4
  64. -- text size: 9
  65. -- style flags: 0
  66. -- line height: 12
  67. -- part name: before
  68.  
  69.  
  70. -- part 5 (field)
  71. -- low flags: 01
  72. -- high flags: 0002
  73. -- rect: left=255 top=239 right=282 bottom=477
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 4
  78. -- text size: 9
  79. -- style flags: 0
  80. -- line height: 12
  81. -- part name: test
  82.  
  83.  
  84. -- part 6 (button)
  85. -- low flags: 00
  86. -- high flags: A003
  87. -- rect: left=107 top=203 right=223 bottom=241
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Extract character
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   StopTabs 1,card field "startcol",0,card field "Before",""
  99.   put the result into card field "test"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 7 (button)
  105. -- low flags: 00
  106. -- high flags: A003
  107. -- rect: left=106 top=228 right=247 bottom=241
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Extract word
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   StopTabs 1,card field "startcol",1,card field "Before",""
  119.   put the result into card field "test"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 8 (button)
  125. -- low flags: 00
  126. -- high flags: 2000
  127. -- rect: left=58 top=148 right=170 bottom=86
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 26635 / 26635
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: 
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   show card field "Columnize Fields"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 9 (button)
  144. -- low flags: 00
  145. -- high flags: 2000
  146. -- rect: left=58 top=199 right=221 bottom=86
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 26635 / 26635
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: 
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   show card field "Extract character"
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 10 (button)
  163. -- low flags: 00
  164. -- high flags: 2000
  165. -- rect: left=58 top=226 right=248 bottom=86
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 26635 / 26635
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: 
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   show card field "Extract field"
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 11 (button)
  182. -- low flags: 00
  183. -- high flags: A003
  184. -- rect: left=106 top=124 right=144 bottom=240
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: Columnize
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   StopTabs 0,card field "startcol",card field "colOff", card field "Before",""
  196.   put the result into card field "test"
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 12 (button)
  202. -- low flags: 00
  203. -- high flags: 2000
  204. -- rect: left=58 top=121 right=143 bottom=86
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 26635 / 26635
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: 
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   show card field "Columnize"
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 13 (button)
  221. -- low flags: 00
  222. -- high flags: A003
  223. -- rect: left=106 top=176 right=196 bottom=240
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: StopTabs™
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   StopTabs 2,card field "startcol",-1,card field "Before",card field "tabs"
  235.   put the result into card field "test"
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 14 (button)
  241. -- low flags: 00
  242. -- high flags: 2000
  243. -- rect: left=58 top=173 right=195 bottom=86
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 26635 / 26635
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: 
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   show card field "Stop~Tabs‚Ñ¢"
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 15 (field)
  260. -- low flags: 00
  261. -- high flags: 0004
  262. -- rect: left=398 top=112 right=126 bottom=502
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 3
  267. -- text size: 9
  268. -- style flags: 0
  269. -- line height: 12
  270. -- part name: tabs
  271.  
  272.  
  273. -- part 19 (field)
  274. -- low flags: 01
  275. -- high flags: 0002
  276. -- rect: left=255 top=226 right=240 bottom=477
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 0
  280. -- font id: 4
  281. -- text size: 9
  282. -- style flags: 0
  283. -- line height: 10
  284. -- part name: 
  285.  
  286.  
  287. -- part 21 (button)
  288. -- low flags: 00
  289. -- high flags: 0000
  290. -- rect: left=132 top=36 right=102 bottom=372
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: 
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   show card btn "Stop~Tabs‚Ñ¢ by S.Koren"
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 20 (button)
  307. -- low flags: 00
  308. -- high flags: A002
  309. -- rect: left=132 top=37 right=103 bottom=371
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: Stop~Tabs™ by S.Koren
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   hide card btn "Stop~Tabs‚Ñ¢ by S.Koren"
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 22 (field)
  326. -- low flags: 81
  327. -- high flags: 0007
  328. -- rect: left=53 top=146 right=291 bottom=248
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 0
  332. -- font id: 3
  333. -- text size: 9
  334. -- style flags: 0
  335. -- line height: 12
  336. -- part name: Columnize
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   hide me
  340. end mouseUp
  341.  
  342.  
  343. -- part 23 (field)
  344. -- low flags: 81
  345. -- high flags: 0007
  346. -- rect: left=53 top=173 right=291 bottom=253
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 0
  350. -- font id: 3
  351. -- text size: 9
  352. -- style flags: 0
  353. -- line height: 12
  354. -- part name: Columnize fields
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   hide me
  358. end mouseUp
  359.  
  360.  
  361. -- part 24 (field)
  362. -- low flags: 81
  363. -- high flags: 0007
  364. -- rect: left=54 top=197 right=342 bottom=249
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 0
  368. -- font id: 3
  369. -- text size: 9
  370. -- style flags: 0
  371. -- line height: 12
  372. -- part name: Stop~Tabs™
  373. ----- HyperTalk script -----
  374. on mouseUp
  375.   hide me
  376. end mouseUp
  377.  
  378.  
  379. -- part 25 (field)
  380. -- low flags: 81
  381. -- high flags: 0007
  382. -- rect: left=54 top=54 right=199 bottom=249
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 0
  386. -- font id: 3
  387. -- text size: 9
  388. -- style flags: 0
  389. -- line height: 12
  390. -- part name: Extract character
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   hide me
  394. end mouseUp
  395.  
  396.  
  397. -- part 26 (field)
  398. -- low flags: 81
  399. -- high flags: 0007
  400. -- rect: left=54 top=54 right=199 bottom=249
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 0
  404. -- font id: 3
  405. -- text size: 9
  406. -- style flags: 0
  407. -- line height: 12
  408. -- part name: Extract field
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   hide me
  412. end mouseUp
  413.  
  414.  
  415. -- part contents for background part 5
  416. ----- text -----
  417. Stop~Tabs‚Ñ¢ XCMD
  418.  
  419. -- part contents for card part 2
  420. ----- text -----
  421. 1
  422.  
  423. -- part contents for card part 3
  424. ----- text -----
  425. 3
  426.  
  427. -- part contents for card part 4
  428. ----- text -----
  429. \2 \4 \6 \8
  430.  
  431.  
  432. -- part contents for card part 15
  433. ----- text -----
  434. \5\10\15\20\
  435.  
  436. -- part contents for card part 5
  437. ----- text -----
  438. \2 
  439.  
  440. -- part contents for card part 19
  441. ----- text -----
  442. 1234|6789•1234|6789•1234|6789•1234|
  443.  
  444.  
  445. -- part contents for card part 22
  446. ----- text -----
  447. Syntax:
  448.  
  449. StopTabs 0,
  450.   card field "startcol",
  451.   card field "colOff", 
  452.   card field "Before",
  453.   ""
  454.  
  455. ‚Ä¢ Reformat the 'Before' string separating  each word 
  456. (delimited by  ' ') by <colOff> spaces.
  457.  
  458. -- part contents for card part 23
  459. ----- text -----
  460. Syntax:
  461.  
  462. StopTabs 2,
  463. card field "startcol",
  464. card field "colOff", 
  465. card field "Before",
  466. ""
  467.  
  468. ‚Ä¢ Reformat the 'Before' string starting at 'startcol' and using 'colOff' columns between fields delimited by '\'.
  469.  
  470. -- part contents for card part 24
  471. ----- text -----
  472. Syntax:
  473.  
  474. StopTabs 2,
  475. card field "startcol",
  476. -1,
  477. card field "Before",
  478. card field "tabs"
  479.   
  480. ‚Ä¢ Reformat 'Before' string starting in column 'startcol' and placing each '\'
  481. delimited field in the corresponding column indicated by the 'tabs' field (must also be '\' delimited.)
  482.  
  483. -- part contents for card part 25
  484. ----- text -----
  485. Syntax:
  486.  
  487. StopTabs 1,
  488. card field "startcol",
  489. 0,
  490. card field "Before",
  491. ""
  492. ‚Ä¢ Return the character in column 
  493. 'startcol' of the string 'Before'.
  494.  
  495. -- part contents for card part 26
  496. ----- text -----
  497. Syntax:
  498.  
  499. StopTabs 1,
  500. card field "startcol",
  501. 1,
  502. card field "Before",
  503. ""
  504.  
  505. ‚Ä¢ Return the space delimited word 
  506. starting in column 'startcol' of the string 'Before'.